Gopher Proxy
vert.synchro.net:70 vert.synchro.net:70/0sub:pascal_l:445
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Subj : file modes
To : Chris Hoppman
From : mark lewis
Date : Wed Jul 07 2004 01:56 am
CH> How would you go about setting file modes in tp?
CH> Like
CH> fm_deny_read_write;
CH> fm_allow_read_write;
CH> filemode := ??
i generally do it like this...
Const
fmReadOnly = 0; {FileMode constants}
fmWriteOnly = 1;
fmReadWrite = 2;
fmDenyAll = 16;
fmDenyWrite = 32;
fmDenyRead = 48;
fmDenyNone = 64;
fmNoInherit = 128;
then in the code, i do this...
oldmode := filemode; {save current filemode}
filemode := fmreadonly + fmdenynone; {set desired filemode}
{assign, open and work with the file}
filemode := oldmode; {restore original filemode}
)\/(ark
* Origin: (1:3634/12)
.
you're on vert.synchro.net^70/0sub:pascal_l:445
back link is vert.synchro.net:70/1sub:pascal_l